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14-Sep-1984 
H Parse old form of commands 

IDENT = ‘'V04-0 

AD DDRESSING _MODE (EXTERNAL = GENERAL) 


MODULE INSPRSOLD ( 


)e2z 
BEGIN 


' 

i eee ee eee eeee eK eeREReHeeeeeReeeeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeeeneeeeeeerer 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corire 
Hd a 4 ACCORDANCE A THE TERMS P's SUCH LIC tt AND WITH THE 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
® 
® 
® 
® 
& 
! te 
is TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
* 
® 
LRA ERATE AAA AAA EAA E RE 


beg 


; FACILITY: Install 
: ABSTRACT: 

This module controls command parsing and processing. 
! ENVIRONMENT : 

VAX/VMS operating system. 

AUTHOR: Bob Grosso, June 1981 

Modified by: 

V03-007 MSH0061 Michael S. Harvey 5-Jul-1984 
; 

' 

1 

' 

1 

' 

1 

I 

1 


Add EXEONLY “pseu 

V03-006 MSHO05S hael S. Harvey 31-May-1984 
Prevent infinite — on command input errors. 

v03-005 MSHO015 Michael S. Harve 66-Mar-1984 
Clarify error message for /REPLACE command. 

v03-004 BLS0256 Benn Schreiber 27-Dec-1983 


a a a a kk kk tk kk kd 8 OOOO 
— 


Remove conflicting qyes it ier checking, now done in cld. 


Allow /DEL ETE even if the file has been deleted. 


K 16 
6-Sep-1984 7:51 AX=-11 Bliss-32 V4.0-7 
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v03-003 BLS0245 Benn Schreiber 27-0c t-1983 
orrect severity of FAIL message for cases where WARNING 
S appropriate. 


v03-002 seg «| Bob i § el 13-Sep-1983 
Re-activate header residen 
Enable /NOPURGE for old no ey 


V03-001 RPGO001 Bob Gros 29-Aug-1983 
Print help from help itorary instead of program text. 
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INSPRSOLD 16-Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-74 P 
v04-000 Declarations 10-88-1382 9339552 INSTAL. SRCJINSPRSOLD.B 231 = 2 
. 070 1 %SBTTL ‘Declarations’; 
3 ue 071 1 
ee bO78 1! 
; rf 0075 1! Include files 
; 0074 1! 
s 76 0075 (+1 
: Ag Bee ! LIBRARY ‘SYSS$LIBRARY:LIB'; ! VAX/VMS system definitions 
: 79 0078 1 REQUIRE 'SRC$:INSPREFIX.REQ'; 
; 80 0 20 1 REQUIRE "LIBS: INSDEF.R32'; 
; 0279 1 
; § 0 a0 1 
a’ % 0281 1! 
; 0 B¢ 1 ! Table of contents 
: 85 0283 1! 
; 6886 0284 1 
4 87 0285 1 FORWARD ROUTINE 
5.6 CSS 0286 1 PROCESS COMMAND, ' execute the command Line 
; oF 0287 1 DISPATCA, ' check for conflicting quals and 
; 0288 1 ! dispatch to appropriate routine 
: 33 i334 : HELP; ! print interactive help 
: 93 0291 1 EXTERNAL 
: 4 8596 : INSOLDCMD; ! Tables describing the old Install commands 
: 96 0294 1! 
s 97 BS32 1 ! External routines 
: «698 0296 1! 
; 99 0297 1 
; 100 0298 1 EXTERNAL ROUTINE 
s 101 i344 1 ! Module INSMAIN 
: 408 O30) 1s INSSCLOSE Fic doer eee 
; pe a4 : INSSCHECK-PRIV, i enforce privilege check in case INSTALL is installed 
: 106 0304 1 INSSCREATE, ' perform CREATE command 
: 108 0306 1 «INSSOLOBAL. 5 Stet atebeh atetions 7 
3 ‘ ' ns 
: 192 $444 : INSSLIST; ' List known file entries 
: 111 0309 1 EXTERNAL ROUTINE 
Bail 0310 1 CLISDCL_PARSE, ! Parse DCL command 
: 113 0311 1 CLISPRESENT, ! Check if entity present 
: 116 b3§ 1 CLISGET_V P ' Get value from command Line 
Me BRE | HRRRBDIACe. cee 
: 117 0315 1 LIBSPUT-OUTPUT, i echo command Line, and print help | 
; 44 | B36 i PRVSSETPRIV, set privilege bits given ASCII string 
> 120 0318 1 STRECONCATS. yom serine 
; 13) Behe ' hs sta IL ! Copy strings by descriptor 
: 138 321 1 STRSRIGHT, 
> 126 3 é 1 STRSUPCASE; 
: 125 3 1 
: 126 3 4 1 EXTERNAL LITERAL oe = 
3: 127 . CLIS_NEGATED, ! Qualifier was explicitly negated 


} 
i 
| 
i 
| 
i 
| 
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EXTE 


EXTE 


BIND 


PRV$_INVNAM, 
PRVS$-NOTUNQ; 


aaek LITERAL 
INS$S_EXISTS, 
NSS"FAIL 
INS$-FAILED, 
INSS$-HELP, 
INS$_INTRNLERR, 
INS$~INVPRVNAM, 
INS$~NOKFEFND, 
INS$"NOLOAD, 
INS$~PRVNOTUNQ, 
INS$~REMOVED; 
RNAL 
INS$L_INTRNLERR, 
KFENAM 


_KFECHAN, 
INSSGL~CTLMSK : SBBLOCK, 
INSSGL-REPLACE_MSK: S$BBLOCK, 
INSSGO-KFERNS = 

$B6L0C 


LOCK 
INSSGL_KFEAD 


SR, 
INS$GO-KFEPRIVS : S$BBLOCK, 
INS$GQ~FILDSC : 


$BBLOCK 
INS$G_KFEFAB : S$BBLOCK, 
CTL$GQ_PROCPRIV : $BBLOCK; 


INPUT_DESC : DYN_DESC_DECL; 

EXIT_DSC = SDESCRIPTOR 
FILE~SPEC_DSC = $DESCRIPTOR 
GLOBAL_pSt = SDESCRIPTOR 
LIST DSC = $DESCRIPTOR 
PRIVILEGED_DSC =  $DESCRIPTOR 
CREATE _DSC7= SDESCRIPTOR 
REPLACE DSC = $DESCRIPTOR 
DELETE BSC = SDESCRIPTOR 
SLASH_REL_DSC = SDESCRIPTOR 
SLASH-HELP_DSC = SDESCRIPTOR 
HEL_DSC = SDESCRIPTOR 
HELP_DSC = SDESCRIPTOR 


-1984 01:47:51 
382 9); 5:40 
d privilege name 
ege name not unique 


1 AX-11 Bliss-32 V4.0-74 Page 
1 IWSTAL.SRCJINSPRSOLD.B32;1 

i 

L 


Known File Entry piceedy exists 

Unable to <OPERATION> <FILENAME> 

Failed to process request for <FILENAME> 

Enter /HELP for INSTALL hel 

Internal Error: error detai 

Invalid privilege name 

Known File not found 

Network and sequentially loaded files are not installable 
Privilege name not unique 

Known entry was remove 


ee 


! Store internal error descriptor 
! file name block declaration 

' channel for open known file 

! Control flags 

' Control flags saved for REPLACE 
' buffer for resultant name 


! id of file to be Listed 

! Quadword privilege mask 

! descriptor to get filename returned 
! from CLI. . 

! file access block declaration 


_! privilege mask of user 


! command string input 
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NSPRSOLD 16-Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-74 Page 5 
~000 INSSPARSE_OLD_CMD 14-Sep-1984 12:35:40 INSTAL.SRCJINSPRSOLD.B32;1 (3) 
Ww o re : ZSBITL ‘INSSPARSE_OLD_CMD'; 
179 6 1 GLOBAL ROUTINE INSSPARSE_OLD_CMD ( PARSE_CMD_DESC, INTERACTIVE ) = 
180 037 BEGIN 
181 0 A: lee4 
186 037 ' 
1 0380 : (Command loop. If not interactive, execute command and exit, else 
1 0381 : rint “INSTALL>"’, read in command, parse command and execute command. 
185 0 B¢ : xit loop for “Z and /EXIT 
186 038 ‘ 
18 0384 !<== 
188 0385 MAP 
189 0386 PARSE_CMD_DESC : REF SBBLOCK; 
190 0387 
191 0388 dO 
138 0389 BEGIN 
19 0390 LOCAL 
194 0391 HLP_PTR, 
195 O36 HLP_LEN, 
196 039 STATUS; 
197 0394 
198 0395 H IF . INTERACTIVE 
199 0396 THEN 
200 0397 4 BEGIN 
201 0398 4 OCAL 
20¢ 0399 4 COPY_DESC : $BBLOCK CDSC$C_S_BLNI, sate 
20 0400 4 ASH_PTR, T Locate the ‘=" continuation character 
Soe Bees ? LAST_WAS_CONT; ! Last command Line was continued 
206 §208 4 ! print the prompt and get input Line 
207 0404 4 STATUS = LIBSGET_INPUT 
208 0405 4 ( INPUT_DESC, SDESCRIPTOR('INSTALL> ') ); 
209 0406 4 IF .STATUS EQL RMS$_EOF ' EXIT on CNTRL Z 
si9 0407 & THEN EXITLOOP; 
11 0408 4 IF NOT .STATUS 
212 0409 4 THEN 
213 0410 5 BEGIN 
2146 0411 § SIGNAL (.STATUS); 
215 6248 5 RETURN .STATUS; 
216 041 4 END; 
217 0414 & 
218 0415 4 DASH_PTR = CHSFIND CH( .INPUT DESC CDSCS$W LENGTH), 
219 0416 4 ‘ UT_DESC CBSCSA_POINTERJ, %C'-"); 
$30 0417 & IF NOT CHSFAIL (.DASH_PTR) 
1 0418 4 THEN 
$¢ 0419 5 BEGIN ! Line continued 
2 0420 § LAST_WAS_CONT = TRUE; 
24 0421 5 COPY-DESC CDSCS$B_CLASS] = DSC$K_CLASS_S; 
25 Bes¢ 5 COPY-DESC COSCSWILENGTH] = .DASA PTR = a yte! DESC CDSCSA_POINTER]; 
$56 04 5 COPY-DESC CDSCSA_POINTER] = .JNPOT DESC CDSCS$A_POINTER); 
e7 0424 5 STRSTOPY DX ( .PARSE_CMD_DESC, COPY_DESC ); ! Copy dst from src 
385 04 3 5 WHILE .LAST_WAS_CONT~DO 
0 0427 3 ! while last was continued, input next line, 
5 0499 é : and concatenate with previous. 
4 0430 6 BEGIN 


sss I 


D1 
INSPRSOLD 16-Sep-1984 01:47:51 AX=11 Bliss-32 V4.0-74 Page 6 
“¥Oe-000" INSSPARSE _OLD_CMD 14-Sep-19 4 12:35:40 INSTAL.SRCJINSPRSOLD.B32;1 2 (3) 
' 


431 6 STATUS = LIBSGET_INPUT( INPUT_DESC, SDESCRIPTOR ('_> ') ); ! get input Line 
5 4 ¢ 6 IF_.STATUS EQL RAS$_EOF 
4 § THEN 
4 BEGIN 
8 0435 7 INTERACTIVE = FALSE 
9 04 ° 7 EXITLOO 
ch 13 
? eke ° COPY_DESC CDSCSA_POINTER] = .INPUT_DESC CDSCSA_POINTER]; 
44 0441 6 DASH_PTR = CHSFIND ewe . INPUT_DESC CDSCSW_LENGTH], .INPUT_DESC CDSCSA_POINTER], %c'=-"); 
45 0442 6 if CASFAIL (.DASH_PTR 
46 0445 6 THEN 
47 0444 7 vig 
48 0445 7 LAST_WAS_CONT = FALSE; 
269 Q64g 7 copy “best CDSC$W_LENGTH] = .INPUT_DESC CDSC$W_LENGTH]; 
a ORAS us 
358 Bees Z corre DESC COSCSW_LENGTH] = .DASH_PTR = .INPUT_DESC CDSCSA_POINTER]; 
255 0452 6 STRSCONCAT (.PARSE CMD ~DESC. ~PARSE_CMD_DESC, COPY_DESC ); 
$28 Be 27 : END; I While reading Lines following continuation Lines 
258 0455 5 IF NOT .INTERACTIVE THEN EXITLOOP; ! “2 entered on continuation Line 
259 0456 5 STRSUPCASE ( .PARSE_CMD es PARSE CMD_ DESC ); 
260 0457 5 END if line continued’ 
261 0458 4 ELSE 
262 0459 & STRSUPCASE ( dentrtg. iatan antes INPUT_DESC ); ! Upcase and copy to PARSE_CMD_DESC 
263 0460 3 END; f interactive. 
264 0461 3 
265 046 ; 
266 046 '+++ 
267 0464 3 i | 
ye Ree? : , Parse command if there is something on the command line 
70 0467 leon 
71 0468 : IF . nee CMD_DESC CDSCSW_LENGTH] NEQ 0 ) AND ! If there is something on the Line 
27 0469 3 HSFAILT CHSFIND_NOT_CH i and there is something besides blanks 
7 0470 3 "4 T ARSE CMD_DESC CD stsu7 LENGTH], 
74 0471 3 PARSE _CAD_DESC CDSCSA_POINTER), "gc" °)) 
275 0472 3 
276 04735 4 BEGIN 
77 474 & 
78 475 4 !e¢+ 
279 0476 4 : | 
280 0477 4 ' Check for /HELP request 
81 0478 4 : 
a 0479 4 leon 
8 0480 4 likes oni | 
284 0481 4 HLP_PTR = STRSPOSITION ( .PARSE_CMD_DESC, SLASH_HELP_DSC); ! Look for "'/HELP"' on comman 
85 0482 4 HLP_LEN = 5; a 
86 0485 4 F .HLP_PTR EQL 0 ! If not found, look for °"'/H 
87 484 & 
88 485 GIN 
89 8 HLP_PTR = STRSPOSITION ( .PARSE_CMD_DESC, SLASH_HEL_DSC); 
90 4 HLP_LEN = 4; 
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v04-000 INSSPARSE_OLD_CMD 14-Sep-1984 12:35 LINSTAL-SRCTINSPRSOLD B32; 1 wee 


291 04 END; 
3 $089 IF .HLP_PTR NEQ 0 
9 0490 THEN 
94 0491 ! 
ef Ree Help was requested, treat entire Line as help request 
97 494 BEGIN 
98 0495 ! 
99 049 ! replace "'/HEL’ or "/HELP’’ with ‘INSTALL’ since Lbr$Soutput_help 
00 049 ! needs to see the topic keyword. 
3 Then call the help routine. 
0 STRSRIGHT ( .PARSE_CMD_DESC, .PARSE_CMD DESC, ZREF (.HLP_PTR+.HLP_LEN) ); 
04 STRSCONCAT (.PARSE_CMD_DESC, SDESCRIPTOR (‘INSTALL *), PARSE_CMD_BESC); 
05 !' Stick “INSTALL on front of help Line 
REPORT( HELP ( .PARSE_CMD_DESC )); 
END ! Help was requested 
ELSE 


lee4 
! 


i No help requested, proceed to parsing command Line 
Must concatenate command Line to "INSTALL" string for 


t 

BEGIN ! Command was something other than /HELP | 

| 
cli$dcl_parse to execute. 


STRSCONCAT (.PARSE_CMD_DESC, SDESCRIPTOR ("INSTALL '),.PARSE CMD_DESC);! Stick “INSTALL on front. 
STATUS = CLISDCL_PARSET .PARSE_CMD_DESC, INSOLDCMD ); T parse the command Line 


IF_ .STATUS | 
THEN 


BEGIN 
IF CLISPRESENT( EXIT_DSC ) ! If /EXIT, then exit program 
THEN EXITLOOP; 


| 
lee | 
: 
Set flags for the qualifiers present in command Line 
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PDRAE_AXXPE PAA AAA A AAD DP DPA DPE DAE DAE DP PD APP PSS SS SSSI ISITE BE 


$1 INS$GL_CTLMSK = 0; ' clear flags : 
1 36 INS$L_INTRNLERR = 0; ! clear internat error descriptor 
37 34 i INSTALL control flags 
39 36 INSSGL_CTLMSK CINS$V_FILSPC] = CLISPRESENT( FILE_SPEC_DSC ); 
3c 3 INSSGL_CTLMSK CINSSV_CREATE] = CLISPRESENT( CREATE_DSC ); 
$§ 39 INSSGL_CTLMSK CINSSV_DELETE] = CLISPRESENT( DELETE DSC ); 
“ 40 INSSGL-CTLMSK CINS$V"REPLACE] = CLISPRESENT( REPLATE_DSC ); 
44 £1 INS$GL_CTLMSK ih eA = CLISPRESENT( Hy DSC ); 
45 $g INSSGL-CTLMSK CINSSVIFULL] = CLISPRESENT( ZASCTD ‘FULL’ ); 
46 4 INSSGL_CTLMSK CINSS$V_GLOBAL] = CLISPRESENT( GLOBAL DSC ) 
47 4 INSSGL-CTLMSK CINS$VTHELP) = CLISPRESENT( ZASCID "RELP* 3; 
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INSTAL .SRC 


“LON 
“ADDRESS P.AAT 
“ASCII \HEL\ 
“BLKB 1 

“LONG 3 

“ADDRESS P.AAV 
“ASCII \HELP\ 
“LONG 4 

“ADDRESS P.AAX 
“ASCII \INSTALL> \ 
“BLKB 3 

“LONG 9 

“ADDRESS P.AAZ 
“ASCII. \_> \ 
“BLKB 1 

“LONG 

ADDRESS P.ABB 
“ASCII \INSTALL \ 
“LONG 

“ADDRESS P.ABD 
“ASCII \INSTALL \ 
LONG 


“ADDRESS P.ABF 
“ASCII 


ED\<0><0><0> 


«ADD ° 
eASCII \HEADER_RESIDENT\<O> 
LONG 17694735 
-ADDRESS P. 
ASCII VSRARER)<O><0> 
G 17694726 


RESS P.ABT 
ASCII WE TT GABLE <O><0><0> 
17694729 


. SS P.ABV 
-ASCII \NOPURGE\<0> 
1769472 


0 
LONG 176 


AX=11 Oi lessee V4.0-74 
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_ INSPRSOLD 16-Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-7 Page 1 
/v04-000 INSSPARSE_OLD_CMD 12280 8-1 382 9}: 7:35:40 INSTAL. SRCJINSPRSOLD. 5 2:1 ° (38 
| 
00000000' 00180 “ADDRESS P.A : 
59 4C GE GF SF 45 54 55 43 45 98 99 8180 P.ABZ: .AS cl I vEECUTE. ONLY\ : 
asa ts 0190 P.ABY: .LON : 
0000000' 00194 LOD RESS P.ABZ : 
«PSECT $OWNS,NOEXE,2 
00# 00000 INPUT_DESC: 
| BYTE C2] ; 
| 02 OE 00002 BYTE ms 2 : 
00004 -BLKB 4 
EXIT_DSC= P.AAA 
| FILE~SPEC_DSC= P.AAC 
GLOBAL_pDSst= P.AA 
LIST _DSC= P.AAG 
PRIVILEGED_DSC= AAI 
CREATE DSC= P.AAK 
REPLACE _DSC= P.AAM 
DELETE _BSC= P.AAO 
SLASH_REL_DSC= P.AAQ 
SLASH HELP_DSC= P.AAS 
HEL_DSC= pA 
HELP_DSC= P.A 
.EXTRN INSOLBCMD, INSSOPEN_FILE 
-EXTRN INSS$CLOSE Pie te TNSSCHECK_ PRIV 
-EXTRN INSS$CREATE, 
~EXTRN INSS$GLOBAL et tet te 
~EXTRN CLISDCL PARSE. CLISPRESENT 
-EXTRN CLISGET-VALUE, LBRSOUTPUT_HELP 
XTRN LIBS$GET-INPUT, LIBSPUT_OUTPU 
[EXTRN PRVSSETPRIV, STRSCO 
~EXTRN STRSCONCAT, STRSCOPY_DX 
-EXTRN STRSPOSITION, STRSRIGHT 
~EXTRN STRSUPCASE, CLI$_NEGATED 
-EXTRN PRVS$_INVNAM, PRVS_NOTU 
.EXTRN INS -EXISTS, INS$7F AIL 
EXTRN INS$"FAILED, I 
“EXTRN INSS$~INTRNLERR, INSS TNVPRVNAM 
-EXTRN INSS_NOKFEFND, INS$_ROLOAD 
-EXTRN INS$"PRVNOTUNG, INSS_REMOVED 
-EXTRN INSSC_INTRNLERR 
EXTRN INSS$G-KFENAM, INSS$GL_KFECHAN 
-EXTRN INSSGC_CTLMSK, INSSGC _REPLACE_MSK 
-EXTRN INSS$ QTKFERNS. INS$GL-KFEADR ~ 
| -EXTRN INSS$GQ-KFEPRIVS 
-EXTRN INS$GQ"FILDSC * INSSG_ KFEFAB 
| “EXTRN CTLSGQ~PROCPRIV 
| -PSECT S$CODE$,NOWRT,2 
| OFFC 00000 -ENTRY INSSPARSE OLD_CMD, Save R2,R3,R4,R5,R6,R7.- ; 0376 
58 0000' CF 9E 99002 MOVAB IN Ay T_DESC, R11 ; | 
5A 0000" CF 9E MOVAB’ P.AAY, : 
| 59 000000006 60 9E 9000 ‘ MOVAB INS$GL_CTLMSK, R9 : 
58 00000000G 00 9€E 0001 MOVAB CLISPRESENT, RB : 
| 
| 


———— — ee ee eee eee ees ee EO 


| 1 
_INSPRSOLD 14 -Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-74 Pa 1 
-v04-000 INSSPARSE_OLD_CMD 14- Sep-19 4 12:35:40 INSTAL. SRCJINSPRSOLD.B32;1 = (hy 
| : OC C2 0001A SUBL2 #12, SP : 
| 08 AC 00 00010 MOVL _INTERACTI + 0395 
| 38 * 85 OR bb05s BBs RD aS SBESC, 2 : ba08 
| 00¢5 5 90 8 BRW 14$ : 
A DD 00008 1$ PUSHL R10 + 0405 
| DD 0002D PUSHL R11 : 
| 000000006 99 02 FB 000eF CALLS 2. LIBSGET_ INPUT : | 
| 5 50 DO 00036 MOVL RO, STATUS : | 
0001827A BF 55 D1 00039 CMPL TATUS, #98938 + 0406 | 
| 3 12 0004 BNEG $ : 
O22F 31 9004 BRW 3$ : | 
0D 5 £8 00045 2$ BLBS STATUS, 3$ > 0408 
55 DD 00048 PUSHL 3STATU + 0411 | 
000000006 00 01 FB OO04A CALLS #1, LIBS$SIGNAL ; 
50 5 b0 90091 MOVL STATUS, RO t 0412 | 
53 04 AB b0 00055 3$ MOVL —_ INPUT_DESC+4, R3 + 0416 
63 68 2D 3A 00059 LOCC #45, INPUT_DESC, (R3) 3 0415 
02 12 0005p BNEQ 4$ : 
| 51 D4 OO05F CLRL R1 : | 
54 51 D0 00061 4$: MOVL 1, : 
52 04 AC 00 00064 MOVL PAR st ot DESC, R2 3 0424 
54 D5 00068 TSTL  DASH_PTR + 0417 
79 13 O006A BEQL : 
56 01 pO 0006C MOVL = #1, Last WAS CONT : 0420 | 
07 AE 01 90 O006F MOVB #1. COPY +3 : 0421) 
04 AE 54 53 a3 00073 SUBW3 = R3, DASH Bra. COPY_DESC + 0422 
08 AE 53 pO 00078 MOVL R3, COPY ~DESC+4 : 0423 
04 AE 9F O007C PUSHAB COPY_DEST > 0424 
52 DD O007F PUSHL R : 
000000006 00 02 FB 00081 CALLS #2, STRSCOPY x ; 
4F 56 £9 00088 5$ BLBC _— LAST_WAS_CONT, + 0425 
Oc AA 9F 00088 PUSHAB P-ABR : 0431 
5B DD O0008E PUSHL R11 F 
000000006 00 02 FB 00090 CALLS #2, LIBSGET_INPUT ; 
55 50 D0 00097 MOVL : F 
0001827A_ BF 55 D1 O009A CMPL STATUS, #98938 > 0432 
05 12 O00A1 BNEQ ; 
08 AC D4 000A3 CLRL —sXINTERACTIVE + 0435 
32 11 OOOAS BRB 10$ + 0434 
53 04 AB DO OOOA8 6$: MOVL INPUT DESC+4, R3 : 0439 
08 AE 5 pO OOOAC MOVL 3, COPY DESC+4 : | 
63 68 20 A 99080 LOCC ais, INPOT_DESC, (R3) + 0441 
2 12 000B4 BNEQ : 
51 D4 9008 CLRL i : 
54 51 DO 00088 7$: MOVL §R1, DASH_PTR : 
98 12 000BB BNEQ ; 0442 
6 04 000BD CLRL = LAST_WAS + 044 
| 046 AE 6B 80 OOBF MOVW in NPUT WOES. Nt oPY _DESC + 0446 
| 03 1 90¢3 BRB + 0442 
04 AE 54 A3 ¢ 8$: SUBW3. R3, DASH_PTR, COPY_DESC : 0450 
| 04 AE 9F OQOOCA 9S: PUSHAB COPY_DESC : 0452 
2 DD OO¢D PUSHL R ; 
DD OOOCF PUSHL ; 
| 000000006 00 O§ FB 00001 CALLS #3, STRSCONCAT : 
| AE 11 000D8 BRB > 0425 
| 
| 
| 
| 


Ny 
_ INSPRSOLD 16-Sep-1984 7:51 AX-11 Bliss-32 V4.0-7 P 
“v04-=000 INSSPARSE_OLD_ CMD 1ereeen18Rs 93:95:20 | Ns TAL SReSinspncory 62:1 age 1S | 
| j 
03 08 A & DA 10$: BLBS NTERACTIVE, 11$ : 0455) 
| 019 5 oD BRW } § : . < 
52 DD OOOE1 11$:  PUSHL R + 0456. 
| 11 OF BRB 13$ : 
| OD COE? 188; pustt ORD Baad 
000000006 00 02 FB 000E9 CALLS RS STRSUPCASE : 
62 85 OOOF 148: TSTW (RE) + 0468 | 
| 7F 13 OOOF BEQL 18s F 
04 B2 62 0 38 O0F4 SKPC = #32, «(R2), @4(R2) + 0470 
2 12 0009 BNEQ 15$ : 
1 D4 OOF CLRL sR : 
! 1 D3 OOFD 15$:  TSTL RI + 0471) 
| 72 13 OOOFF BEQL 18% ; 
D4 AA 9F 00101 PUSHAB SLASH_HELP_DSC + 0481 
52 DD 00104 PUSHL Re : 
000090006 00 be FB 00106 CALLS #2, STRSPOSITION é 
53 g DO 0010D MOVL a5. HLP_LEN 3; 0482 
0 5 00110 TSTL HLP_P ; 0483 | 
OF 12 00112 BNEQ 16$ ; 
C4 AA OF 00114 PUSHAB SLASH_HEL_DSC + 0486 | 
52 DD 00117 PUSHL ; 
000000006 00 02 FB 00119 CALLS #2, STRSPOSITION : 
53 04 D0 00120 MOVL #4, HLP_LEN : 0487 | 
50 DS 00123 16$ TSTL -HLP_PTR + 0489 
29 «12 00128 BEQL 17$ F | 
6E 50 53 Ci 00127 ADDL3 HLP_LEN, HLP_PTR, (SP) + 0500. 
4004 8F BB 00128 PUSHR #*MZR2,SP> 3 
| 38 DD Opt g PUSHL a ; 
000000006 00 03 FB 00131 CALLS #3, STRSRIGHT : 
52 DD 00138 PUSHL R2 > 0501 
1¢ AA OF OO13A PUSHAB P.ABC : | 
52 DD 00130 PUSHL Re : 
000000006 00 03 FB 0013F CALLS #3, STRSCONCAT : 
52 DD 00146 PUSHL R + 0503 
0000v CF 01 FB 00148 CALLS #1, HELP : 
0106 31 00140 BRW 21$ : 
52 DD 00150 17$:  PUSHL R2 > 0516 
2c AA OOF 00152 PUSHAB P.ABE : 
32 DD 0015 PUSHL i ; 
000000006 00 03 FB 00157 CALLS #3, STRSCONCAT : 
000000006 00 9F 0015 PUSHAB INSOLDCMD : 0517 
52 DD 00164 PUSHL : 
000000006 90 ; FB 00166 CALLS ‘ CLISDCL _PARSE : 
5 D 16D MOVL R STAT WS 3 
03 5 ES 99170 BLBS eTATUSS 4 19$ : 0519. 
O0F4 31 00173 18 BRW 22$ : 
FF4G CAO 00176 19$ PUSHAB EXIT > 0522 
68 9 4 017A CALLS CL ISPRESENT : 
03 0 7 017D BLBC nO 2 : 
OOF1 31 0180 BRW 23$ ; 
69 D4 00183 20$:  CLRL _—«sXINSSGL_CTLMSK : 0531 
000000006 00 04 00185 CLRL —sCINS$L_INTRNLERR : 0532 
FF58 CA 9F 0018B PUSHAB i. — SP PEC Sur : 0536 
68 1 4 18F CALLS # i, 3 
69 01 00 0 F 0130 INSV n sENSSGL _CTLMSK : 
98 AA 9F 0019 PUSHAB EREAT : 


eee ee - —$_____—_ a 


: 7 
16-Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-7 Page 13. 
INSSPARSE_OLD_CMD 12780871382 93:90:28 INSTAL’ SRCJINSPRSOLD. ij 2:1 «35 | 
8 gL, 19A CALLS #1, CLISPRESENT : 
01 4 0 FB a1%0 INSV. RO, #4, #1, INSSGL_CTLMSK : 
BB AA 9F OO1A PUSHAB DELETE DSC + 0539) 

68 1 FB O1A CALLS #1, CLISPRESENT : 
01 06 0 FO OO1A INSV RO. #6 #1 ENSSGL _CTLMSK : | 
AS AA OF 0140 PUSHAB REPLAC + 0540) 
68 1 FB 180 CALLS #1, iN : | 

01 0 FO 001B INSV RO, #5, #1, ENSSGL _CTLMSK : 
FF74 CA 9F 001BB PUSHAB List > 0541) 

68 1 FB o1BC CALLS rhiSerese ; 

01 01 0 FO 001BF INSV 48 i, #1, INSSGL_CTLMSK+1 : 
38 «AA «OOF 001C5 PUSHAB  P.A + 0542 
68 1 FB 0018 CALLS ae ee i : 
01 02 0 FO 001¢8 INSV #1, INSSGL_CTLMSK+1 : 
FF68 CA 9F 00101 PUSHAB cL baa + 0543 

68 01 FB 00105 CALLS CLTSPR : 

01 04 50 FO 00108 INSV RO. a4, #1, eS ENSSGL.. CTLMSK+1 : 
44 AA 9F 001DE PUSHAB  P.A + 0544 

68 01 FB OO1E1 CALLS #1, CLISPRESENT : 

01 02 50 FO OO1E4 INSV. RO, #2, #1, INSSGL_CTLMSK : 
50 AA 9F OO1E9 PUSHAB P.ABK + 0545 

68 01 FB OO1EC CALLS #i, C ISPRESENT : 

01 03 50 FO OO1EF INSV ROM , #1, INSSGL_CTLMSK : 
64 AA 9F OO1F4 PUSHAB P. + 0546 

68 01 FB 001F7 CALLS #1, CLISPRESENT F 

01 00 50 FO OO1FA SV RO, #0, #1, INSSGL_CTLMSK+2 ; 
70 AA 9F 00200 PUSHAB P.ABO + 0547 

3} 01 FB 00203 CALLS #i, ¢ ISPRESENT : 

01 05 50 FO 00206 SV RO, #5, #1, INSSGL_CTLMSK+1 : 
0088 CA 9F 0020C PUSHAB P.ABQ : 0548 

68 01 FB 00210 CALLS #i, CLISPRESENT : 

01 06 50 FO 00213 INSV R foo INSSGL_ CTLMSK+1 ; 
88 AA 9F 00219 PUSHAB “ty! EGE + 0549 

68 01 FB O0021C CALLS cu iSPR : 

01 07 50 FO OO21F INSV a sENSSGL _CTLMSK+1 : 
0098 CA 9F 00225 PUSHAB P. Ona : 0550 

68 01 FB 00229 CALLS CLISPRESENT : 

01 01 50 FO 002 C INSV 4% #1, #1, INSSGL_CTLMSK+2 : 
OOAC CA 9F 00232 PUSHAB P. : 0551 

68 01 FB 00236 CALLS Z CLISPRESENT : 
01 02 50 FO 00 39 INSV 4% #2, #1, INSSGL_CTLMSK+2 : | 
oopc CA OF 008 F PUSHAB P.ABW : 0552 
68 01 FB 00243 CALLS #i, C ISPRESENT : 
01 03 50 FO 00 46 INSV. RO, #3, #1, INSSGL_CTLMSK+2 : | 
00D0 CA OF 0024C PUSHAB P : 0553, 

68 gi FB 00 50 CALLS i. {. CLISPRESENT : 

05 0 FO 00253 INSV INSSGL CTLMSK+2 : 
0000v CF 00 FB 0259 CALLS a0. saPROceSé_ com AND > 0558 | 
09 30 E8 00 3E 21$: + BLBS : 
0 DD 0026 PUSHL STATUS : | 
000000006 99 01 FB 0 63 CALLS #1 LIBSS1GNAL : | 
7 08 aC OD 6A 22$: MOVL InfeRA ACTIVE, R7 > 0564 | 
03 57 59 0 oF BLBC 3=—s_aR?, 238 ; 
FB? 1 00271 BRW 1$ : 
50 1 DO 00274 238:  MOVL #1, RO : 0565 | 
04 00277 RET : 0566 


wena 


; Routine Size: 


; 370 


INSSPARSE_OLD_CMD 


632 bytes, Routine Base: 


0567 #1 


SCODES + 0000 


ifs 


Sep-1 
=Sep-1 


be 92:95%2 
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_ V04- process_command 14-Sep-1984 12:35:40 INSTAL.SRCJINSPRSOLD.B352;1 


F y 268 } ZSBTTL ‘process_command'; 
3} 32% is 1 ROUTINE PROCESS_COMMAND = 
is 375 71 BEGIN 

: 3 ang § i*** 

: 8 0374 FUNCTIONAL DESCRIPTION: 

; 380 278 Set up the control flags and call the appropriate routines to execute 
: 3 b2o6 the commands. 

: § $300 i IMPLICIT INPUT: 

: 5? 036) ; CLISDCL_PARSE has been called with the input command Line. 

: 387 0388 i QUTPUT: 

; 388 0584 ! 

Cm ones i 

: 91 0587 i IMPLICIT OUTPUT: 

: 38 0589 i Set up global control flegs. set up FAB for open file, store 
: he Beoy any privilege mask specified and record the open channel number. 
: 394 059¢ i ROUTINE VALUE: 

: 309 Bage ; success 

: ! error: 

; 400 0596 2! RMS from file open Soe 

; 401 0597 § } PRVSSETPRIV: if there are invalid privileges specified 

; 40 0598 ! 

: tbe 0600 OWN 

> 405 0601 PRIV_DSC : $BBLOCK CDSC$C_S$_BLN] 

2 rts 1 be0 ecm PRESET(CDSC$B_CLASSJ = DSCSK_CLASS_D); 

: 608 0604 CMK_ARGLST : VECTOR (1), ! arguement List for change mode dispatcher 
: 409 0605 STATUS; 

HP BB 

; 12 0608 i Since INSTALL may be installed with CMKRNL privilege, 

: 41 0609 § ‘ check that user has CMKRNL pergtse e before allowing 

; 418 bers any operations other than /EXIT and /HELP operations. 

: 416 Ose ; CMK_ARGLST [0] = 0; 

> 617 061 STATUS = SCMKRNL (ROUTIN = INSSCHECK_PRIV, ARGLST = CMK_ARGLST); 
; 418 0614 IF NOT .STATUS 

: 420 be16 THEN BEGIN 

: <3 0617 SIGNAL (SS$_NOCMKRNL) ; 

at é 0618 RETURN TRUE? 

634 Beg0 _— 

; ‘ 3 LF, INSSGL_CTLMSK CINS$V_PRIV] 

: 139 %3 : BEGIN 

; 628 0624 LOCAL 


—-O”o 


OOOOCCOCOCOoO 


PAAAAA SOS 


FW OVOOWVOUE WW" OVODOnwe 


SoOoooCoooOoCooo 
SESS Freee 
oP at a 1 


SoOoooooooo 
SESSTTSTSTS ys 
SOOONOUES WN —“OOOnNOu 


Sse 


Bae Be Be Be Oe Oe Be Be Be Be Se Oe Be Se Be Se Be Se Se Se Be Se Se Se Se Se Se Se Se Be Se ae Se Se BH Be Se Oe Se Se Se Se Oe Se Se Se Be Se Se Se Se ee ee ee FH Se ae 


AANA BEE BB PAE BEAN TUPIPININI CAPIPIPUDINININPINI HWW & BUTT B&B PIE BP LEE 


N 1 
16-Sep-1984 01:47:51 
process_command 14-Sep-1984 12:35:40 
ALL_PRIVS; ! boolean 
ALL PRIVS = TRUE; 
FIL . y{Ns$Ga_KEEPRIVS) 
oni a le LUE (“PRIVILEGEO_DSC, PRIV_DSC ) DO 
PRIVS = FALSE; 
SELECT TPRVSSETPR IV (PRIV_DSC, INS$GQ_KFEPRIVS) OF 
CPRVS INVNAM] : 
RETURN {1Nss_ INVPRVNAM, 1, PRIV_DSC); 
END; 
CPRV$_NOTUNQ]: 
BEG 


N 
SIGNAL (INS$_PRVNOTUNQ, 1, PRIV_DSC); 
RETURN TRUE; 


TES; 
END; 
IF .ALL_PRIVS 
aes CHSFILL (-1, 8, INSS$SGQ_KFEPRIVS); 


Act on the command entered 


NOT .INSSGL_CTLMSK CINS$SV_FILSPC) ) 


A file spec wasn’ 
are /LIST and /GLOBAL and /FULL 


STATUS; 


IF (.INS$SGL_CTLMSK CINS$V_LIST Y OR 
- INSSGL>CTLMSK CINS$V~ “FULL ) 


BEGIN 
STATUS = iNSS. IST (0); 
IF NOT .STATUS 


! end while there are more privs 
! No privs specified with /PRIV so 
!' use default of all privs set 


t entered, therefore the only legal qualifiers 


AX-11 Blis Srae V4.0-74 1 
INSTAL. SRei INSPRSOLD.B52;1 (4 


! turn on all privs by default 
! initialize privilege quadword to z 


! turn off default 
! set the appropriate bit in the mask 


N 
SIGNAL ae, FAILED AND NOT we SEVERITY) OR STS$K_WARNING), 


LIST_DSC, .STAT 
a TRUE ; 


IF .INSSGL_CTLMSK CINS$V_GLOBAL] 
THEN 


| 2 | 
| INSPRSOLD 1b-se 1984 01:47:51 AX-11 Bliss-32 V4.0-74 Page 17 DRE 
v04- process_command a aets 1 3 $5520 INSTAL. SROJINSPRSOLD.B 231 ° (4). 
3 rt 4] 6 ¢ 4 OF sin 
3; 6 6 4 TATUS = INSS$GLOBAL (); 3 
>; 488 684 4 IF NOT .STATUS 3 
; 489 685 4 THEN 3* 
; 4690 6 $ 4 SIGNAL ((CINSS_FAILED AND NOT STSSM_SEVERITY) OR STSSK_WARNING), 7* 
> 491 687 4 1, GLOBAL_DSC, 7STATUS); 3* 
; 49 0688 4 RETURN TRUE; ;* 
; 49 0689 END; ;* 
> 494 0690 END 7* 
3; 495 0691 7? 
; 4696 9 :* 
; 497 9 ! 3? 
; 698 694 ' A file name was specified ;* 
; 499 0695 ! 3* 
; 500 696 3t 
; 501 697 ELSE 3* 
3 208 0698 BEGIN :* 
; we 0699 OCAL :* 
s 306 0700 OPEN_STATUS, 3* 
; 505 0701 STATOS; :* 
: 506 070 te 
; 507 070 ' i* 
; 508 0704 ' Get the file spec from the CLI 3@ 
: 509 0705 ! a) 
s 319 0706 REPORT( CLISGET VALUE ( FILE_SPEC_DSC, INS$GQ_FILDSC) ); 
s S13 0707 OPEN_STATUS = INSSOPEN_F ILE VM; 
3 21¢ 0708 1F NOT -OPEN_STATUS 
3 3 0709 ine 
; 514 0710 3 INSSCLOSE_FILE (); 
Ae i a e 
: leee 
; 517 ak ! XFS 
; 518 0714 ‘ Process file operations 
; 519 0715 ' ALC 
3 “50 0716 leon QUA 
s Sei 0717 DISPATCH (); GRA 
3 2s¢ 0718 3 RE! 
3 Se 0719 H INSSCLOSE_FILE (); DUP 
3 6 3e6 0720 PAC 
3 Se 0721 § END; CMC 
; 526 0722 2 RETURN TRUE; CRI 
oy) ae 0723 1 END; ! routine process_command sl 
de 
-PSECT S$OWNS,NOEXE,2 DAI 
00# 00008 PRIV_DSC: EFA 
BYTE 0(3) 3 IN] 
02 00008 -—BYTE 2 : MOt 
0000C¢ -BLKB 4 
SYSSCMKRNL 701 
SCODES,NOWRT,2 Cm 


Bee 2 
_INSPRSOLD 1. Sep-1984 01:47:51 AX-11 Bliss-32 V4.0- Page 18 
yoe-000 process_command 14- 730071382 2:35:40 INSTAL. SRCJINSPRSOLD. 32:1 = 
.WORD Save R2,R3,R4,R5,R6,R7,RB.RI,R10,R11 : 0570 
ag oogsons ap ge ggaee RBM ERLE: : 
$9 pooodaoe > $e S90u¢ © ova nse KFEPRIys, no 7 
3 aitdaitts 09 9E 001¢ MOVAB  INSS$GL Cttiasee R? : 
E D4 000 CLRL  CMK_ARGLS ; 0612 
5E DD 000 3 PUSHL $P : 061 
000000006 00 9F 000 PUSHAB INSSCHECK : 
000000006 90 98 EB 00 p CALLS He, a = 
7 2804 BF ee 900 7 MOVZWL #1024 : 061 
6 1 FB 0003C CALLS or T6SS ena : 
55 11 0003F BRB $5" > 061 
01 a? 73 9004) 1$ Ise INSSGL_ CTLMSK+1 > 062 
56 01 D0 00046 MOVL #1, ALL_PRI + 0627 
08 00 6E 09 2¢ 90049 MOVCS #0. (SPJ, 4° #8, INS$GQ_KFEPRIVS ; 0628 
: SA DD irk 2$ PUSHL R10 + 0629 
| 0000" CF 9F 00051 PUSHAB PRIVILEGED DSC : 
§ 95 eb 8888p GRAES de gyfer vat : 
56 D4 00058 CLRL = ALL_PRIVS + 0631 
59 DD 0005D PUSHL R9 + 0632 
SA DD 0005F PUSHL R10 : 
000000006 99 02 FB 90061 CALLS #2, PRVSSETPRIV 2 
000000006 &F 32 D4 00068 CMPL Re. #PRVS_INVNAM 0635 
81 be 00076 pusMt ate ; 0637 
000000006 oF bb 90078 PUSHL #INS$_INVPRVNAM 
000000006 8F 52 D1 90080 3$: CMPL Re. #PRVS_NOTUNQ 0641 
tO eat Ke 
000000006 8F DD 0008D PUSHL #INSS PRVNOTUNQ : 
* BFE 83898 ge: Gaul fig BSS LOM pou 
07 56 £9 00098 6$ BLBC A L _PRIVS, 7$ > 0648 
08 FF 8F 6E oe C Benne MOVCS “(SP), #-1, #8, INS$GQ_KFEPRIVS : 0649 
46 67 £8 O00Kg 7$: BLBS INSSGL CTLMSK, 12$ : 0658 
05 01 AZ 01 £0 000A BBS #1, INSSGL_CTLMSK+1, 8$ > 0668 | 
eo Me SL EDDu? ox: fh SfgpfNSSGLCETURSE+T. 98 88 
sosemese } HAG mt o: innn : 
2¢ 3g 8 Mitt BLBS STATUS, 15$ : 0673 
52 DD 0008 PUSHL STATUS > 0676 
0000° cr 7 90¢0 PUSHAB ae DSC ; 0675 
52 01 a7 4 £1 000C6 9S: BBC #4, INSSGL_CTLMSK+1, 15$ > 0680 
000000006 99 09 FB O0¢B CALLS #0. INS$GLOBAL > 0683 
2 D0 000d MOVL RO, ST ATUS ; 


dD 2 

INSPRSOLD 16-Sep-1984 01:47:51 vane Bliss-32 V4.0-74 Page 19 
v04 process_command 14-Sep-1984 12:35:40 INSTAL.SRCJINSPRSOLD.832;1 (4) 
45 33 £8 900 BLBS STATUS, 15$ + 0684 
bb 9 D PUSHL STATUS 3 0687 
0000" CF 9F 0000 PUSHAB GLOBAL_DSC : 0686 

1 OD OO0E 10$ PUSHL #1 : 

00000000* 8F DD 4 E PUSHL #<INS$_FAILED&-8> : 

68 98 FB OOOE CALLS #4, LIBSSIGNAL : 
2 11 00069 118: BRB 15$ + 0688 
000000006 00 9F OODEB 12$: PUSHAB INS$GQ_FILDSC : 0706 
0000" CF 9F OO0F1 PUSHAB FALE SPEC _DSC : | 

68 2 FB pore CALLS #2, CLISGET_VALUE 3 

0 E OF BLBS STATUS, 13$ : 

50 DD OorB PUSHL STATUS 3 

68 01 FB FD CALLS #1, LIBSSIGNAL : 
000000006 00 99 FB 0100 13$ CALLS #0, INSSOPEN_FILE : 0707 
07 0 €E8 00107 BL OPEN_ STATUS, 14$ + 0708 
000000006 00 00 FB 0010A CALLS #0, INSSCLOSE_FILE : 0710 
OO00Ov CF 09 FB 00111 148: CALLS #0, PATCH : 0717) 
000000006 00 0 FB 90116 CALLS #0, INSSCLOSE_FILE : 0719) 
0 01 DO 0011D 15$: MOVL #1, RO : 0722 
04 00120 RET : 0723 


; Routine Size: 289 bytes, Routine Base: S$CODE$ + 0278 


; 528 0724 1 


=J 
o 


| : 
INSPRSOLD 1b-sep-1984 01:4 AX=11 BLiss- = p 
v04-000 ep $ s age 3 


; 32 v4.0 743 
dispatch 14-Sep-1984 12:3 INSTAL.SRCJINSPRSOLD.B32;1 


~ 
NO 


woo VWN—oO 


IF NOT -INSSG KFEFABLFABSL_ STS] 
THEN" Rr TG - INSSGL CTUMSKCINSSV _DELETE] 


A esate CHEASK INSSV DELETE) 
elete requested then /replace/create are invalid 


iif /d 
; if /List requested then all the remaining known files will 
! be Listed after the delete 


BEGIN 
STATUS = INSSDELETE (); ! delete it 
1F NOT . STATUS 


$1 GNAL (CCINSS_FAIL_ AND NOT STSSM_SEVERITY) OR STSS$K_WARNING), 
2, DELETE_DSC, INSS$GQ_KFERNS, .STATUS); 
i «STATUS EQL INS$_INTRNLERR 
SIGNAL CINS$S_INTRNLERR, 1, .INSSL_INTRNLERR); 
ELSE rhen’ -STATUS EQL INS$_REMOV 


ED 
HEN SIGNAL(.STATUS,1T,INS$GQ_KFERNS); 
IF (.INS$GL_CTLMSK CINS$V-LISTJ On eINSSéL.. CTLMSK CINS$V_FULLJ) 


PADS BEEP EE 
WN “OC OODNAUS WNC OONOULS WN oO 
SN NNN SNS NSS SS SSNS SSS SS 
MEWN OC DONA UES WN OO OONAUE WN “OO DNAUES WN —OOW 


Ce Tow ewe we) we we) we ew we we ww ww we wwe www wale olololalalolelelelololelolololeolelel ala ole oleae ol aloo ala) 


AINIAIAINIAI AI AIPIPIPYINPINPINPIDIPD AANA BE AE BB BB BE EWAN PUPPY PIPIPIPONPPPD 2 SO 


Pw wall eal eal al al al al eal al ab eb ah ah sb ah ah ah sh al ah ah ah ab ah ak ah dd al ak ak al al ab eal ad al Ma) ead ad al al al al eal eal Sal eal eal eal 


64 

65 — “REPORT” CINSSLIST (003 

66 END 

67 

68 

69 

70 ELSE 

71 66 IF _ .INSSGL_CTLMSK CINS$V_REPLACE] 

72 767 THEN 

73 768 : 

74 769 ' Replace has been requested. There can be no other qualifiers. 
75 770 ! The entry must be deleted and recreated. 

76 771 : If /list requested with /replace then do the replace and 
77 re } List the new entry. 

78 77 ‘ 

79 774 BEGIN 

80 775 : t 2 

3! ore Delete and recreate with new attributes 

BS 778 INSSGL_ CTLASK Crussy -DELETE) = TRUE; ' set delete flag 
84 779 INSS$GL_REPLACE ’ 

85 730 STATUS = INS ELE Te. QO: ! recreate it 

86 781 IF NOT “STA 


F 2 
INSPRSOLD 16-Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-74 Pa 1 nies! 
maraetty dispatch 14 Hatt fi 9339022) INSTAL. SRCJINSPRSOLD.B32;1 ™ 8) 


; 587 7 ¢ 3 THEN 

; 588 7 4 BEGIN 

; 34 f ¢ ? SIGNAL ((CINSS ~ftlt AND ~ ipa SEVERITY) 

; 4 B78 2 ¥ 5 SEreNe OSC, INS$GQ KFERNS, .STATUS); 

: 38 0788 4 IF .STATUS EQL INS$_INTRNLERR 

; 594 0789 4 TH 

3 232 B79 4 _SIGNAL CINSS_INTRNLERR, 1, .INSSL_INTRNLERR); 

3; 397 0739 INSEL KFEADR = 0; ! Entry has gone away 
; 598 Bry INSSCLOSE_FILE (); 

; 599 794 

; 600 0795 INSSOPEN_FILE (); 

; 601 0796 INSSGL REPLACE _MSK Tete = .INSSGL_CTLMSK CINS$V_LISTI; 
; 60 0797 INSSGL REPLACE _ MSK CLINS$V_FULL) = . INS$SGL_ CTLMSK CINSS$SV— _FULLI; 
; 60 0798 INSSGL_CTLMSK = .INSS$GL REPLACE. MSK; '“use replace mask 

: 604 0799 INS$SGL_CTLMSK at S$V_CREATE] = TRUE; ' set create tleg 

; 605 0800 INSSGL-CTLMSK CINSSV-DELETE = FAL USE: i clear delete flag 

3 ope er) IF .INSSGL_KFEADR EQC 0 

; 608 080 STATUS = INSSCREATE () ' recreate it 

; 609 0804 ELS 

; 610 0805 STATUS = INSS$_EXISTS; 

3; 611 0806 

; ol¢ 0807 IF NOT .STATUS 

: 61 0808 THEN 

3 6146 0809 4 BEGIN 

3 oi? Baty : SIGNAL (INS$_FAIL, 2, REPLACE_DSC, INS$GQ_KFERNS,.STATUS); 
3; 617 bers 4 IF _ .STATUS EQL INSS_INTRNLERR 
; 618 0813 4 
: 619 0814 4 SIGNAL CINSS_INTRNLERR, 1, .INSSL_INTRNLERR); 

; 620 0815 3 D; 

; $21 Baie 3 

; 622 081 4 IF (.INSSGL_CTLMSK CINSS$V_LISTJ oe TAY pee _CTLMSK CINS$V_FULLJ) 

: 623 0818 3 THEN REPORT CINSSLIST (. IRSSGL_KFEADR)); 

: 624 0819 3 IF .INS$SGL_CTLMSK aNSs¥ V_GLOBA iri 

3 os? pase 3 THEN REPORT CINSSGLOBAL T.INSSGL_KFEADR)); 

; 627 ba5§ END ! /REPLACE 

: 628 082 

: 680 $855 ELSE 

: 831 0836 ; 

; O34 0827 ' files ec given but not for replace or delete 

; 63 0828 ! A /LIST without /CREATE requests List of given file's KFE. 

; 634 +4 By niet with “egeate requests file be added to KFE an 

3; 635 0830 ! that entry be 

: 636 tt A filename without eaL IST or /CREATE is an implied /CREATE. 

; 638 $838 BEGIN 

; 639 0834 4 IF (. INS$SGL_CTLMSK PINSSV. LIST] Fe 1 eee _CTLMSK CINSSV_FULL] OR 
; 640 ste . INS$SGL-CTLMSK CINS$V"~GLOBAL)) 

; 641 6 NOT - INSSGL_CTLMSK PINSSV CREATED. 

Z otg 0837 THEN 

; 64 0838 4 BEGIN 


2 
INSPRSOLD 18-56 1984 01:47:51 AX-11 Bliss-32 v4.0-74 Pa 2 
02-000 dispatch er eee= 18s 95:8:2) | FINS TAPE AESTRe Mealy “bS0. 4 ve 85 
: 644 39 4 IF .INS$SGL_KFEADR EQL 0 C 
> 645 B26 4 THEN " C 
3 666 41 3 BEGIN C 
3 i rk SIGNAL ((CINS$_FAIL we NOT STSSH SEVERITY) es 
> 649 0844 ; 2, LIST_DSC, INSSGQ_KFERNS, INS$_NOKFEFND); C* 
; 650 0845 RETURN TRUE; 7 
; 651 0846 4 END; = 
; 628 B47 & END Ce 
3; 63 Ones 3 ELSE Ce 
3 654 0849 4 BEGIN Ce 
3 6639 Baey 4 INSSGL_CTLMSK CINSS$V_CREATE] = TRUE; ' set create flag Ct 
; 656 851 4&4 IF gINSSGL _KFEADR EQC 0 Ce 
: re $Bes d "STATUS INSSCREATE () '¢ fe 
3 = ! Create it * 
: ras oBss 4 STATUS = INS$_EXISTS Cs 
; US = IN Xx : * 
> 661 0856 4 Ki Ce 
; 66 0857 4 IF NOT .STATUS Ce 
; 66 0858 4 THEN Ce 
3: 664 0859 ‘5 BEGIN Ce 
3; 665 0860 5§ SIGNAL (INS$_FAIL, 2, CREATE_DSC, INSSGQ_KFERNS, .STATUS); Ce 
3; 666 0861 5 Ce 
3; 667 0862 5 IF .STATUS EQL INS$_INTRNLERR Ce 
3; 668 0863 5 THEN Ce 
; 9 0864 5 SIGNAL (INS$_INTRNLERR, 1, .INSSL_INTRNLERR); C 
3: 670 0865 4 END; Cr 
: 671 0866 3 END; C 
3; 67 0867 3 C 
3 67 0868 4 IF (.INS$SGL_CTLMSK CINS$V LIST] OR INSSGL CTLMSK CINS$V_FULLJ) C 
> 674 0869 3 THEN REPORT (CINSS$SLIST (.INS$GL_KFEADR)) C 
3; 675 0870 ; IF .INS$GL_CTLMSK tinssv V_GLOBA AC} C 
3: 676 0871 THEN REPORT CINS$SGLOBAL T.INSSGL_KFEADR)); | C F 
: 677 0872 >? END; C 
3; 678 0873 2 oeTunn TRUE; 
; 679 0874 1 END ! Routine dispatch 


OFFC 00000 DISPATCH: 


~WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 0726 
58 9000" cf 9E 0000 MOVAB DELETE OSC, R11 ; 
A 000000006 60 9€ 0000 MOVAB INSSLIST, R : 
59 000000006 00 9€ 90005 MOVAB  INS$GL_REPLACE_MSK, R9 : 
38 000000006 00 9€E 0001 MOVAB  INSSL_INTRNLERR, R&S : 
7 99 0 0 G6 00 9€ 9001¢ MOVAB INSS$GC_KFEADR, R7 ; 
26 00000006 00 9 00 MOVAB  INSSGQ-KFERNS, R6 : 
2 00000006 8F DO 0002A MOVL  #INSS INTRNLERR. RS ; 
4 90000006 0 9—€ 00031 MOVAB LIBSSIGNAL, R : 
53 000000006 3 0038 MOVAB _INS$GL trtask. R3 ; 
07 000000006 90 £8 000% BLBS = INS$G_RFEFAB+8, 2$ : 0735 | 
07 63 6 50 0 46 BBS #6, INSSGL_CTLMSK, 3% > 0736. 
O1AA 31 0004A 18: = BRW 268 : 0737 | 
F 63 06 E1 00040 gs: BBC #6, INSSGL_CTLMSK, 8$ > 0738 | 
000000006 00 FB 00051 3$: CALLS #0, INSSDECETE : 0746 


H 2 
INSPRSOLD 16-Sep-1984 01:47:51 AX-11 Bliss-32 V4.0-74 Pa 3 
v04- dispatch 19-800=138e 93390525 INSTAL SRCJINSPRSOLD .B 2;1 ” (83 
52 DO 00058 MOVL RO, STATUS : 
iE pg et BLBS STATUS, 4$ t 0747 
DD 0005 PUSHL STATUS : 0751 
DD 0006 PUSHL R6 : 0750 
; DD 06 PUSHL R11 : 
0 DD 064 PUSHL #2 : 
00000000* 8F DD 00066 PUSHL &#<INS$_FAIL&-8> : 
64 93 FB 0006C CALLS 5 L1GSS | GNAL ; 
55 2 01 OO6F CMPL STATUS, R : 0753 
1A 12 00072 BNEG 6 : 
68 DD 00074 PUSHL INS$L_INTRNLERR + 0755 
o1 DD 0076 PUSHL #1 : | 
5 0D 0007 PUSHL 5 : | 
OF 11 O007A BRB 5$ ; | 
000000006 8F 2 01 007¢ 4$: CMPL § STATUS, #INSS$_REMOVED : 0757. 
09 12 0008 BNEG 6$ ; 
56 DD 00085 PUSHL R6 : 0758 
01 DD 00087 PUSHL = #1 ; | 
ee «OD 00089 PUSHL STATUS ; 
64 03 +B 00088 S$: CALLS #3, LIBSSIGNAL : | 
05 01 AB 01 £0 0008E 6$: BBS #1, INS$SGL_CTLMSK+1, 7$ : 0759. 
B2 01 =A3 02 €1 0009 BBC #2, INSSGL~CTLMSK+1, 1$ : | 
7E D4 00098 7S: CLRL 0s = ( §P) : 0760. 
6A 01 FB OO09A CALLS #1, INSSLIST ; 
014F 31 0009D BRW : | 
03 63 05 £0 QOOAO 8$: BBS #5, INSSGL_CTLMSK, 9$ : 0766. 
00B6 31 OOOA4 BRW 16§ ; | 
63 40 8F 88 000A7 9S: BISB2 #64, INSSGL_CTLMSK : 0778 
69 D4 OOOAB CLRL_ _INS$GL_REPLACE_MSK : 0779 | 
000000006 00 00 FB OOOAD CALLS #0, INSSDELETE : 0780 
52 50 DO 000B4 MOVL RO. STATUS ; | 
iF 3g E8 00087 BLBS STATUS, 10$ : 0781 
52 DD OOOBA PUSHL STATUS : 0786. 
56 DD 000BC PUSHL R > 0784. 
5B DD OOOBE PUSHL R11 ; 
02 pd 000C0 PUSHL #2 ; 
00000000* 8F DD 000C2 PUSHL #<INS$ FAIL&-8> F | 
64 05 FB 000C8 CALLS #5, LIBSSIGNAL : | 
55 52 D1 000CB CMPL STATUS, R5 : 0788 | 
09 12 000CE BNEQ 10 : 
Go DD 000D0 PUSHL INSSL_INTRNLERR ; 0790) 
9 DD 00002 PUSHL #1 F 
5 DD 00004 PUSHL R5 ; 
64 03 FB 99006 CALLS #3, LIBSSIGNAL : 
67 D4 00009 108: CLRL INSSGL_KFEADR : 079 
000000006 00 00 FB 000DB ALLS #0, INSSCLOSE_FILE : 0793 | 
000000006 00 00 FB O00E¢ CALLS #0. INSSOPEN FILE : 0795 | 
50 01 = A3 4 9 EF OOOE EXTZV #1, #1, INSSGL_CTLMSK+1, R80 : 0796 | 
01 Ad 01 1 0 FO OOOEF INS RO, #1. #1, INSS$GL_REPLACE MSK+1 ; 
50 01 Ad 01 08 EF OOF 5 EXTZV #2. #1. INSSGL_CTLASK+1, : 0797 
01 Ad 01 08 FO OO0OFB INSV RO, #2, #1, INSSGL_REPLACE_MSK+1 ; 
6 69 D 0191 MOVL INSSGL“REPLACE_MSK> INSSGL~CTLMSK : 0798 | 
63 10 8 01 BISB2 #16, IRS$GL_CTCMSK : 0799 | 
6 40 8F 8A 0107 BICB2 #64, INSSGL~CTLMSK : 0800 | 
67 b3 1 TSTL NSS$GL_KFEABR : 0801 
Oc 1 9190 BNEQ ; 
000000006 00 FB 0010F CALLS #0, INSSCREATE ; 0803 | 


2 
INSPRSOLD 1h-s6 =1984 01:47:51 AX-11 Bliss-32 V4.0-74 
v04-000 dispatch 12-808-13e 05395520 INSTAL. SRCJINSPRSOLD.B32;1 
52 DO 0011 MOVL RO, STATUS 
$ 11 118 BRB mos 
52 000000006 8F D0 11B 11$: MOVL  #INSS EXISTS, STATUS 
2 E 122 12$: BLBS STATUS, 138 
DD 1 PUSHL STATUS 
DD 001 PUSHL R 
FO AB OF 91 9 PUSHAB REPLACE_DSC 
DD 0012C PUSHL # 
000000006 8F DD 0012 PUSHL #INsS FAIL 
64 5 FB 00134 CALLS #5, LIBSSIGNAL 
55 ‘ D1 00137 CMPL STATUS, R5 
09 12 901 A BNEQ 13$ 
68 0D 0013¢ PUSHL INSSL_INTRNLERR 
o1 DD 001 PUSHL #1 
5 DD 0014 PUSHL RS 
64 03 FB 0014 CALLS #3, LIBSSIGNAL 
05 01 «AB 01 £0 0014 13$: BBS #1, INSSGL_CTLMSK+1, 14$ 
0B 01 AB 0@ E1 OO14A BBC #2, INS$GL-CTLMSK+1, 15$ 
67 DD OO14F 14%: PUSHL INSS$GL_KFEAD 
6A 01 FB 00151 CALLS #1, INSSL 
03 50 €8 00154 BLBS STATUS, 15$ 
0082 31 00157 BRW 3$ 
0084 31 0015A 15$: BRW 4$ 
50 67 DO 0015D 168: MOVL INS$SGL_KFEADR, RO 
OA 01 = A3 01 £0 00160 BBS #1, INSSGL_CTLMSK+1, 17$ 
05 01 «AB 02 £0 00165 BBS #2, INS$SGL-CTLMSK+1, 17$ 
iE 01 «AB 04 €1 0016A BBC #4, INS$GL-CTLMSK+1, 18$ 
1A 63 04 EO OO16F 17$: BBS #4, INSSGL~CTLMSK, 18$ 
§5 12 00173 BNEQ 
000000006 8F DD 00175 PUSHL #INS$_NOKFEFND 
56 DD 00178 PUSHL R 
BC AB 9F 0017D PUSHAB LIST_DSC 
02 DD 00180 PUSHL #2 
00000000" 8F DD 00182 PUSHL #<INS$_FAIL@-8> 
64 05 FB 001 CALLS #5, LIBSSIGNAL 
6A 11 00188 BRB 26 
63 10 88 0018D 18$: BISB2 #16, INSSGL_CTLMSK 
50 05 00190 TSTL RO 
OC 12 00192 BNEQ 19% 
000000006 00 90 FB 00194 CALLS #0, INSSCREATE 
52 0 pO 00198 MOVL RO, STATUS 
07 11 0019E BRB 20 
52 000000006 8F 00 OO1A0 19S: MOVL #INS$_EXISTS, STATUS 
20 22 E8 D147 208: BLBS STATUS, 21$ 
DD OO1AA PUSHL ATUS 
56 DD OOTAC PUSHL R6 
EO AB 9F OO1AE PUSHAB CREATE_DSC 
2 0D 001B1 PUSHL @# 
000000006 8F DD 00183 PUSHL #Nss FAIL 
64 5 FB 0189 CALLS @# LTB$S ]GNAL 
55 D1 001BC CMPL TATUS, R 
09 12 001BF BNEQ 
8 DD 001C1 PUSHL INSSL_INTRNLERR 
1 DD gic PUSHL #1 
3 DD 001C PUSHL R 
64 6 FB gic CALLS #3, LIBSSIGNAL 
05 01 =A3 i 1CA 21% BBS #i, INS$GL_CTLMSK+1, 22$ 


Pe Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Fe Ge Ge Be Se Ge Se Be Se Se Se Be Be Fe Se Se Fe Se Se Se Se Fe Se Be Se Fe Ge Se Fe Se Fe Se Ge Be Be Be 


4-2 | 
1 16-Sep- 1:47:51 AX-11 Bliss=-32 V4.0-7 Page 25. 
v04-000 dispatch 14-Sep P= 1 984 93: 35:40 INSTAL. SRCJINSPRSOLD. 4 2:1 . Ast 
| 
0D 01 A3 02 E1 OO1CF BBC #2, INSSGL_CTLMSK+1, 24$ ; 
DD 00104 228 PUSHL INSS$GL_KFEADR + 0869. 
6A 1 FB 0106 CALLS #1, INSSLIST ; | 
05 0 E8 0010 BLBS § STATUS, 24$ : 
50 DD 001DC 238 PUSHL STATUS ; 
64 4 FB 001DE CALLS #1, LIBSSIGNA ; | 
11 01 A3 4 €1 OO1E1 24$ BBC #4. INSSGL CTLMSK+1, 26$ + 0870) 
67 DD OiEG PUSHL TNéscL KFEADR + 0871 
000000006 00 1 Fe O1E CALLS #1, sitisgb08 AL 3 
05 20 EB OOIEF 25$: LBS STA : | 
0 DD 001F2 PUSHL STATUS : 
64 01 FB grr CALLS ; L1BSSIGNAL : 
0 1 DO OO1F7 268 MOVL a R t 0873 
04 OO1FA RET t 0874 


; Routine Size: 507 bytes, Routine Base: $CODE$S + 0399 


; 680 0875 1 


_— 
z 
vy 
‘vo 
@ 
4d 


o 
co 
~ 


ssseccess 
PEE RFR NETL 


OOO OOWOMCMOCOCDCDODCY vw 
WO OOnNOUS Wwr—Cc OO 


OOOCOCGCOCOOCCOCOOOOCOOCOoO 
= 


0 0d CO CD CD CD OD 0D Cd Cd C9 CD OD OD 0D CD CD CD 


oO 
Lal 


= POROTUROPOPUPU RD 2 
mm 


ZSBTTL ‘help’; 
ROUTINE HELP ( HLP_DSC) = 
'oo4¢ 


FUNCTIONAL DESCRIPTION: 
Conduct interactive help session 


INPUT: 
elp is requeste 


OUTPUT: 
Interactive help session 


ROUTINE VALUE: 
Low bit set for success 
: unless an error is returned from lbr$output_help. 


' == - 

BEGIN 
OCAL 

HLP_FLAGS; 


HLP_FLAGS = HLP$M_ PROCESS OR HLP$M_GROUP OR HLPSM_SYSTEM; 
EPORT ( LBRSOUTPOT_HELP (LIB$PUT OUTPUT 


ETURN TRUE; 
ND; 


-PSECT $PLITS,NOWRT,NOEXE,2 


AX-11 Bliss-32 V4.0-74 
INSTAL. SRCJINSPRSOLD.B52;1 


hip_dsc : eoecr teter of command, possibly with qualifier(s) for 
which d 


R . 0, .HLP . 
. SDESCRIPTOR('INSTALHLP’), HLP_FLAGS, LIBSGET_INPUT) ); 


50 4C 48 4C 41 54 53 4E 49 00198 P.ACB: .ASCII \INSTALHLP\ 
QO1A -BLKB 3 
00000009 QO1A4 P.ACA: .LONG 9 
00000000" OOIA -ADDRESS P.ACB 


-PSECT S$CODES,NOWRT,2 


PUSHAB LIBSGET_INPUT 
HLP_FLAGS 


ATA 


BSPUT_OUTPUT 


Atus 


LBRSOUTPUT_HELP 


0000 00000 HELP:  .WORD Save nothing 
OF pp it PUSHL # 
000000006 F 
04 AE OF BRbA PUSHAB 
0000" CF 9F 0000D PUSHAB P. 
04 AC 0D 00011 PUSHL HLP_DSC 
3 . 0014 CLRL -(SP) 
000000006 F Bie PUSHAB I 
000000006 4! 6 4 i CALLS @ 
9 0 € 0 LBS ST 
0 DD 000 8 PUSHL 
000000006 98 4 fe 0 
0 1 B O2F 1$ OVL 
4 00032 ET 


STATU 
CALLS #1, 5 JOSS TN, 
M #1, R 


Page 26 
. (6) | 


XF{ 


INSPRSOLD 
v04 help 


; Routine Size: 51 bytes, Routine Base: SCODES + 0594 


; 710 0904 1 
Fan 905 1 END ! Module INSPRSOLD 
s Tile 906 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 428 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1479 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eocceece Symbols ------ -- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 22 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INSPRSOLD/OBJ=OBJ$: INSPRSOLD MSRC$: INSPRSOLD/UPDATE=(ENH$: INSPRSOLD) 
; Size: 1479 code + 444 data bytes 


; Run Time 00:25.3 
: Elapsed tees hs ta 
; Lines/CPU Min: $366 

; vena oe te 15259 

: ponory Used: 244 pages 
; Compilation Complete 


2 
1B-Sep-1964 01:47:5 


AX-11 Bliss-32 V 
INSTAL. SRC TNSPRSOLD. if 2;1 


re 


vOé 


ENT CORPORATION 
AND PROPRIETARY | 


AH-BT13A-SE 
VAX/VMS V4.0 


0189 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


DIGITA 
CONFID 


019 


